home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / bbs / rchat401.zip / R-PCCHAT.MRG < prev    next >
Text File  |  1992-09-14  |  7KB  |  170 lines
  1. * ------------[ BLED merge (c) Ken Goosens ]-------------
  2. * Merge this against OLD\RBBS-PC.BAS to produce RBBS-PC.BAS
  3. * OLD\RBBS-PC.BAS:  Date 8-26-1990  Size 165474 bytes
  4. * ------------[ Created 08-28-1990 14:07:47 ]------------
  5. * REPLACING old line(s) by new
  6. 800 IF ZAdjustedSecurity THEN _                                      ' KG032501
  7.        GOSUB 5135
  8.     IF ZOrigCnfg$ = ZCurDef$ THEN _
  9.        ZMainUserFileIndex = ZUserFileIndex : _
  10.        ZOrigSec = ZUserSecLevel : _
  11.        ZUserSecSave = ZUserSecLevel : _
  12.        ZOrigUserName$ = ZActiveUserName$
  13.     ZTimesLoggedOn = CVI(MID$(ZUserOption$,1,2)) - _
  14.        ((ZOrigCnfg$ <> ZCurDef$ OR NOT ZSubBoard) AND _              ' KG022601
  15.         (NOT ZPrivateDoor) AND (NOT ZExitToDoors))
  16.     GOSUB 9500
  17.     IF (NOT ZExitToDoors) AND (NOT ZSubBoard) THEN _                 ' KG022601
  18.        CALL UpdtCalr (ZActiveUserName$ + " from " + ZWasCI$ + _
  19.                  " Lvl" + STR$(ZUserSecLevel) + " " + TIME$,2)
  20.     PrevLastOn$ = ZLastDateTimeOn$
  21.     IF ZLocalUser THEN _
  22.        ZTalkToModemAt$ = "9600" : _
  23.        ZBaudParity$ = "9600 BPS,N,8,1" : _                           ' DA062001
  24.        ZModemInitBaud$ = "9600" : _
  25.        ZSnoop = ZTrue : _
  26.        ZLineFeeds = ZTrue
  27.     CALL SetCrLf
  28.     CALL SetPrompt
  29.     CALL XferType (2,ZTrue)
  30.     IF NOT ZSubBoard THEN _                                          ' KG022601
  31.        BoardCheckDate$ = PrevLastOn$
  32.     CALL SetSysOp                                                    ' KG022601
  33.     IF ZWasA THEN _
  34.        ZActiveUserName$ = "SYSOP" : _
  35.        ZFirstName$ = "SysOp"                                         ' KG011401
  36.     IF ZExitToDoors OR ZSubBoard THEN _                              ' KG022601
  37.        GOTO 815
  38.     GOSUB 465
  39.     IF (ZEightBit AND _
  40.        ZAutoDownDesired) OR _
  41.        ZAskID THEN _
  42.        CALL TestUser
  43.     CALL QuickTPut1 ("Logging " + ZActiveUserName$)
  44.     CALL Talk (1,ZOutTxt$)
  45.     Temp$ = STR$(ZBaudTest!) + MID$(ZBaudParity$,INSTR(ZBaudParity$," B")) ' KG081902
  46.     CALL QuickTPut1 ("RBBS-PC " + ZVersionID$ + " Node " + ZNodeID$ + _
  47.                 ", operating at" + Temp$)                            ' KG081902
  48.     CALL SkipLine (1)
  49. * ------[ first line different ]------
  50.     IF ZMaxNodes > 1 THEN                                            ' RCHAT
  51.        CALL LogNewForChat (ZMaxNodes)                                ' RCHAT
  52.     END IF                                                           ' RCHAT
  53.     Attempts = 0
  54.     ZWasZ$ = ZActiveUserName$ + _
  55.             " on at " + _
  56.             ZCurDate$ + _
  57.             ", " + _
  58.             ZTime$ + _
  59.             " from " + _
  60.             ZWasCI$ + _
  61.             "," + Temp$                                              ' KG081902
  62.      ZWasNG$ = ZWasZ$ + SPACE$(128 - LEN(ZWasZ$))
  63. '
  64. ' *  ALWAYS RECORD THE HASH/INDIVIDUATING FIELD TO EACH RECORD LOGGED OUT
  65. '
  66.      WasX$ = "{" + _
  67.           HashValue$ + _
  68.           "/" + _
  69.           ZIndivValue$ + _
  70.           "}"
  71.      IF LEN(ZWasZ$) < 65 THEN _
  72.         WasX = 65 _
  73.      ELSE WasX = LEN(ZWasZ$) + 2
  74.      MID$(ZWasNG$,WasX) = WasX$
  75.      CALL Printit ("  " + ZWasZ$)
  76.      IF ZNewUser THEN _
  77.         CALL UpdtCalr ("NEWUSER",1) : _
  78.         CALL Muzak (2)
  79. '
  80. ' *****  NOTIFY CALLER IF ABLE TO "AUTODOWN"  ****
  81. '
  82.     IF ZEightBit AND ZAutoDownYes THEN _
  83.        ZOutTxt$ = CHR$(9) + _
  84.             ZReturnLineFeed$ + _
  85.             "You may use AUTODOWNLOADing!" : _
  86.        CALL RingCaller : _
  87.        CALL DelayTime(4)
  88. * REPLACING old line(s) by new
  89. 1230 CALL Line25
  90.      ZOutTxt$ = ZConfName$ + ":"                                     ' TC070708
  91.      GOSUB 12978                                                     ' TC070708
  92.      CALL Talk (65,ZConfName$)                                       ' TC070708
  93.      CALL DispTimeRemain (MinsRemaining)
  94.      IF ZMenuIndex = 6 THEN _
  95.         ZSubParm = 1 : _
  96.         CALL Library
  97. * ------[ first line different ]------
  98.      CALL CBCheck(WillChat)                                          ' RCHAT
  99.      IF WillChat THEN GOTO 1600
  100.      CALL SaveUserActivity("I", ZNodeRecIndex, ZFalse)               ' RCHAT
  101.      CALL Talk (ZMenuIndex, ZOutTxt$)
  102. * REPLACING old line(s) by new
  103. * ------[ first line different ]------
  104. * INSERTING new line(s)
  105. 1600 CALL CBTrueChat (ZMaxNodes)                                     ' RCHAT
  106.      GOSUB 5344                                                      ' RCHAT
  107.      GOTO 1205                                                       ' RCHAT
  108. '
  109. ' ****  I - COMMAND FROM MAIN MENU (DISPLAY INITIAL WELCOME)  ***
  110. '
  111. * REPLACING old line(s) by new
  112. *2100 ZOutTxt$ = "Type " + _
  113. *          ZMsgHeader$ + _
  114. *          STR$(ZMaxMsgLines) + _
  115. *          " lines max" + _
  116. *          ZPressEnter$
  117. *     GOSUB 12975
  118. *     GOSUB 3200
  119. * ------[ first line different ]------
  120. *     CALL SaveUserActivity("M", ZNodeRecIndex, ZFalse)               ' RCHAT
  121. * REPLACING old line(s) by new
  122. 4360 ZWasLG$(11) = ZWasZ$
  123.      NumMsgsSelected = ZLastIndex
  124.      MsgIndex = ZAnsIndex
  125.      ZLastIndex = 0
  126.      AddressedToUser = ZFalse                                        ' KG020801
  127.      ToRequested = ZFalse                                            ' KG020801
  128.      FromRequested = ZFalse                                          ' KG010102
  129.      LinkNext = ZFalse                                               ' KG020801
  130. * ------[ first line different ]------
  131.      CALL SaveUserActivity("M", ZNodeRecIndex, ZFalse)               ' RCHAT
  132. * REPLACING old line(s) by new
  133. 5410 CALL Toggle(-9)
  134.      GOSUB 43020
  135.      ZFF = INSTR(ZDefaultXfer$,ZUserXferDefault$)
  136.      CALL Toggle(-5)
  137.      GOSUB 42810
  138.      CALL Toggle(-3)
  139.      CALL Toggle(-6)
  140.      CALL Toggle(-7)
  141.      CALL Toggle(-10)
  142.      CALL Toggle(-2)
  143.      CALL Toggle(-4)
  144.      CALL Toggle(-8)
  145.      CALL Toggle(-1)
  146. * ------[ first line different ]------
  147.      CALL Toggle(-11)                                                ' RCHAT
  148.      IF ZRestrictByDate AND ZDaysInRegPeriod > 0 THEN _
  149.         IF ZUserSecLevel > ZTempExpiredSec THEN _                    ' DA021501
  150.            CALL QuickTPut1 ("Registration expires " + ZExpirationDate$)
  151.      RETURN
  152. '
  153. ' *****  B - TIME BANK  (I figured someone should change this..)  ****
  154. '
  155. * REPLACING old line(s) by new
  156. * ------[ first line different ]------
  157. 9800 CALL PageEm (ZNodeRecIndex - 1, ZMaxNodes)
  158.      REM ** 'ZNodeRecIndex - 1' is the users actual node number.. is there
  159.      REM ** already a variable for this?? I dunno..
  160.      REM **
  161.      REM ** PageEm will call WhosOn, then ask if they want to page someone
  162.      REM ** if so, it'll call CBTrueChat
  163.      REM ** etc..
  164.      CLOSE 10                                                        ' RCHAT
  165.      GOSUB 5344
  166.      RETURN
  167. '
  168. ' *  1 - COMMAND FROM SYSOP MENU (DISPLAY COMMENTS)
  169. '
  170.